 x:byte;
 y:char;
 n:char;
 f:file of char;
begin
 print "Используется файл test.tst";
 open f,"test.tst";
  for x:=1 to 5 do
   begin
    print x," Введите символ: ";
    input y;
    print f,y;
   end
 close f;
 print;

 open f,"test.tst";
 print "Введенные символы:";
 print;
 for x:=1 to 5 do
  begin
   input f,y;
   print y;print;
  end
 close f;
end;
